home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / gadtools.inc < prev    next >
Text File  |  1998-06-24  |  4KB  |  170 lines
  1. pattern CreateGadgetA(_kind,_gad,_ng,_taglist) is
  2.     push a2\a6;
  3.     safe d0.l:=_kind; a0:=_gad; a1:=_ng; a2:=_taglist;;
  4.     a6:=GadToolsBase; jsr [a6-30];
  5.     pop a2\a6;
  6. endp;                                                            # CREATEGADGETA
  7.  
  8. pattern FreeGadgets(_gad) is
  9.     push a6;
  10.     a0:=_gad;
  11.     a6:=GadToolsBase; jsr [a6-36];
  12.     pop a6;
  13. endp;                                                            # FREEGADGETS
  14.  
  15. pattern GT_SetGadgetAttrsA(_gad,_win,_req,_taglist) is
  16.     push a2\a3\a6;
  17.     safe a0:=_gad; a1:=_win; a2:=_req; a3:=_taglist;;
  18.     a6:=GadToolsBase; jsr [a6-42];
  19.     pop a2\a3\a6;
  20. endp;                                                            # GT_SETGADGETATTRSA
  21.  
  22. pattern CreateMenusA(_newmenu,_taglist) is
  23.     push a6;
  24.     safe a0:=_newmenu; a1:=_taglist;;
  25.     a6:=GadToolsBase; jsr [a6-48];
  26.     pop a6;
  27. endp;                                                            # CREATEMENUSA
  28.  
  29. pattern FreeMenus(_menu) is
  30.     push a6;
  31.     a0:=_menu;
  32.     a6:=GadToolsBase; jsr [a6-54];
  33.     pop a6;
  34. endp;                                                            # FREEMENUS
  35.  
  36. pattern LayoutMenuItemsA(_firstitem,_vi,_taglist) is
  37.     push a2\a6;
  38.     safe a0:=_firstitem; a1:=_vi; a2:=_taglist;;
  39.     a6:=GadToolsBase; jsr [a6-60];
  40.     pop a2\a6;
  41. endp;                                                            # LAYOUTMENUITEMSA
  42.  
  43. pattern LayoutMenusA(_firstmenu,_vi,_taglist) is
  44.     push a2\a6;
  45.     safe a0:=_firstmenu; a1:=_vi; a2:=_taglist;;
  46.     a6:=GadToolsBase; jsr [a6-66];
  47.     pop a2\a6;
  48. endp;                                                            # LAYOUTMENUSA
  49.  
  50. pattern GT_GetIMsg(_iport) is
  51.     push a6;
  52.     a0:=_iport;
  53.     a6:=GadToolsBase; jsr [a6-72];
  54.     pop a6;
  55. endp;                                                            # GT_GETIMSG
  56.  
  57. pattern GT_ReplyIMsg(_imsg) is
  58.     push a6;
  59.     a1:=_imsg;
  60.     a6:=GadToolsBase; jsr [a6-78];
  61.     pop a6;
  62. endp;                                                            # GT_REPLYIMSG
  63.  
  64. pattern GT_RefreshWindow(_win,_req) is
  65.     push a6;
  66.     safe a0:=_win; a1:=_req;;
  67.     a6:=GadToolsBase; jsr [a6-84];
  68.     pop a6;
  69. endp;                                                            # GT_REFRESHWINDOW
  70.  
  71. pattern GT_BeginRefresh(_win) is
  72.     push a6;
  73.     a0:=_win;
  74.     a6:=GadToolsBase; jsr [a6-90];
  75.     pop a6;
  76. endp;                                                            # GT_BEGINREFRESH
  77.  
  78. pattern GT_EndRefresh(_win,_complete) is
  79.     push a6;
  80.     safe a0:=_win; d0.l:=_complete;;
  81.     a6:=GadToolsBase; jsr [a6-96];
  82.     pop a6;
  83. endp;                                                            # GT_ENDREFRESH
  84.  
  85. pattern GT_FilterIMsg(_imsg) is
  86.     push a6;
  87.     a1:=_imsg;
  88.     a6:=GadToolsBase; jsr [a6-102];
  89.     pop a6;
  90. endp;                                                            # GT_FILTERIMSG
  91.  
  92. pattern GT_PostFilterIMsg(_imsg) is
  93.     push a6;
  94.     a1:=_imsg;
  95.     a6:=GadToolsBase; jsr [a6-108];
  96.     pop a6;
  97. endp;                                                            # GT_POSTFILTERIMSG
  98.  
  99. pattern CreateContext(_glistptr) is
  100.     push a6;
  101.     a0:=_glistptr;
  102.     a6:=GadToolsBase; jsr [a6-114];
  103.     pop a6;
  104. endp;                                                            # CREATECONTEXT
  105.  
  106. pattern DrawBevelBoxA(_rport,_left,_top,_width,_height,_taglist) is
  107.     push d2\d3\a6;
  108.     safe a0:=_rport; d0.l:=_left; d1.l:=_top; d2.l:=_width; d3.l:=_height; a1:=_taglist;;
  109.     a6:=GadToolsBase; jsr [a6-120];
  110.     pop d2\d3\a6;
  111. endp;                                                            # DRAWBEVELBOXA
  112.  
  113. pattern GetVisualInfoA(_screen,_taglist) is
  114.     push a6;
  115.     safe a0:=_screen; a1:=_taglist;;
  116.     a6:=GadToolsBase; jsr [a6-126];
  117.     pop a6;
  118. endp;                                                            # GETVISUALINFOA
  119.  
  120. pattern FreeVisualInfo(_vi) is
  121.     push a6;
  122.     a0:=_vi;
  123.     a6:=GadToolsBase; jsr [a6-132];
  124.     pop a6;
  125. endp;                                                            # FREEVISUALINFO
  126.  
  127. pattern gadtoolsPrivate1 is
  128.     push a6;
  129.     a6:=GadToolsBase; jsr [a6-138];
  130.     pop a6;
  131. endp;                                                            # GADTOOLSPRIVATE1
  132.  
  133. pattern gadtoolsPrivate2 is
  134.     push a6;
  135.     a6:=GadToolsBase; jsr [a6-144];
  136.     pop a6;
  137. endp;                                                            # GADTOOLSPRIVATE2
  138.  
  139. pattern gadtoolsPrivate3 is
  140.     push a6;
  141.     a6:=GadToolsBase; jsr [a6-150];
  142.     pop a6;
  143. endp;                                                            # GADTOOLSPRIVATE3
  144.  
  145. pattern gadtoolsPrivate4 is
  146.     push a6;
  147.     a6:=GadToolsBase; jsr [a6-156];
  148.     pop a6;
  149. endp;                                                            # GADTOOLSPRIVATE4
  150.  
  151. pattern gadtoolsPrivate5 is
  152.     push a6;
  153.     a6:=GadToolsBase; jsr [a6-162];
  154.     pop a6;
  155. endp;                                                            # GADTOOLSPRIVATE5
  156.  
  157. pattern gadtoolsPrivate6 is
  158.     push a6;
  159.     a6:=GadToolsBase; jsr [a6-168];
  160.     pop a6;
  161. endp;                                                            # GADTOOLSPRIVATE6
  162.  
  163. pattern GT_GetGadgetAttrsA(_gad,_win,_req,_taglist) is
  164.     push a2\a3\a6;
  165.     safe a0:=_gad; a1:=_win; a2:=_req; a3:=_taglist;;
  166.     a6:=GadToolsBase; jsr [a6-174];
  167.     pop a2\a3\a6;
  168. endp;                                                            # GT_GETGADGETATTRSA
  169.  
  170.